home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Taifun / Taifun 059 (1988-05-15)(Ossowski, Stefan)(DE)(PD).zip / Taifun 059 (1988-05-15)(Ossowski, Stefan)(DE)(PD).adf / Haushaltsbuch V1.2 (.txt) < prev    next >
AmigaBASIC Source Code  |  1988-04-22  |  506b  |  27 lines
  1. ' Ladeprogramm fuer HHB V1.2
  2.  
  3. ON BREAK GOSUB Ende:BREAK ON
  4. ON ERROR GOTO Errormeldung
  5. clearsumme&=105000
  6. IF FRE(-1) > 250000 THEN clearsumme&=FRE(-1)-150000
  7. IF clearsumme&>200000 THEN clearsumme&=200000
  8. CLEAR ,clearsumme&
  9. LOAD "Haushaltssystem/HHB V1.2",r
  10. SYSTEM
  11.  
  12. Errormeldung:
  13.  
  14. IF ERR=7 OR ERR=14 THEN
  15. CLS
  16. LOCATE 12,14:PRINT "Das war es auch schon. Viel zu wenig Speicher frei !"
  17. RESUME Ende
  18. END IF
  19. ON ERROR GOTO 0
  20.  
  21. Ende:
  22.  
  23. LOCATE 20,24:PRINT "Drücken Sie die Linke Maustaste"
  24. WHILE MOUSE(0)<>-1 :WEND
  25. SYSTEM
  26.  
  27.